home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 206 / MF_UK_206_1.iso / pc / Files / Scenes / HOME.DIR / Internal_2_GRAB DETAILS.ls < prev    next >
Encoding:
Text File  |  2008-02-06  |  2.3 KB  |  68 lines
  1. global gActionPath, gRootPath, dV, HDFSize, BDFSize, gInstTarget, gFolderTarget, flashShot
  2.  
  3. on GatherActions gActionPath
  4.   theURL = gActionPath & "code.menu"
  5.   put theURL
  6.   grabCode = getNetText(theURL)
  7.   if netDone(grabCode) then
  8.     codeKey = netTextResult(grabCode)
  9.   end if
  10.   flashShot = 0
  11.   put codeKey
  12.   repeat with i = 1 to codeKey.line.count
  13.     if codeKey.line[i] contains "<movie>" then
  14.       movieTarget = codeKey.line[i].char[9..codeKey.line[i].char.count]
  15.       go(1, gRootPath & "Files" & dV & "Scenes" & dV & movieTarget)
  16.       gImMovie = 1
  17.     end if
  18.   end repeat
  19.   if gImMovie <> 1 then
  20.     gInstTarget = EMPTY
  21.     gFolderTarget = EMPTY
  22.     repeat with i = 1 to codeKey.line.count
  23.       tagWord = codeKey.line[i].word[1]
  24.       case tagWord of
  25.         "<install>":
  26.           gInstTarget = codeKey.line[i].char[11..codeKey.line[i].char.count]
  27.         "<folder>":
  28.           gFolderTarget = codeKey.line[i].char[10..codeKey.line[i].char.count]
  29.         "<flashshot>":
  30.           flashShot = 1
  31.           put "should load flash screenshot"
  32.       end case
  33.     end repeat
  34.     memberNumber = member("imageholder").memberNum
  35.     if flashShot = 0 then
  36.       tempURL = gActionPath & "shot.jpg"
  37.       member("imageholder").importFileInto(tempURL)
  38.       member(memberNumber).name = "imageholder"
  39.       member(memberNumber).centerRegPoint = 1
  40.       sprite(14).member = member("imageholder")
  41.     else
  42.       member("flashshot").erase()
  43.       tempURL = gActionPath & "shot.swf"
  44.       tm = new(#flash, castLib(1))
  45.       tm.importFileInto(tempURL)
  46.       tm.name = "flashshot"
  47.     end if
  48.     theTxt = gActionPath & "info.txt"
  49.     grabTxt = getNetText(theTxt)
  50.     if netDone(grabTxt) then
  51.       member("infoTxt").text = netTextResult(grabTxt)
  52.     end if
  53.     member("infoTxt").line[1].fontSize = HDFSize
  54.     member("infoTxt").line[1].fixedLineSpace = HDFSize
  55.     member("infoTxt").line[1].color = rgb(255, 255, 255)
  56.     member("infoTxt").line[1].topSpacing = 0
  57.     member("infoTxt").line[1].bottomSpacing = 0
  58.     repeat with g = 2 to member("infoTxt").line.count
  59.       member("infoTxt").line[g].fontSize = BDFSize
  60.       member("infoTxt").line[g].fixedLineSpace = BDFSize
  61.       member("infoTxt").line[g].color = rgb(255, 255, 255)
  62.       member("infoTxt").line[g].topSpacing = 0
  63.       member("infoTxt").line[g].bottomSpacing = 0
  64.     end repeat
  65.     go(marker("product"))
  66.   end if
  67. end
  68.